#!/usr/bin/perl
use English;

$a = "guten morgen";
$a =~ m/mor/;
print $PREMATCH . "|" . $MATCH . "|" . $POSTMATCH;
